© Apple Assembly Line 


Volume 1 -- Issue 1 October, 1980 


Welcome to the premier issue of the Apple Assembly Line! 


This new monthly newsletter is dedicated to the many Apple 
owners using assembly language, or who would like to learn how. 
Articles will include commented disassemblies of Apple ROM 
routines, DOS, and other commercial software; how to augment 
and modify existing products; beginner's lessons in assembly 
language; handy subroutines every programmer needs in his tool 
kits; and many more. 


In this issue you will find a tutorial on efficient ways to 
increment and decrement multiple-byte values, a very powerful 
subroutine for formatting messages on the screen, and patch 
code for the S-C ASSEMBLER II Version 4.0 to “adapt” it to the 
Paymar Lower-Case Adapter. There is also an article describing 
a recently reported error found in all 6502 chips, and a brief 
announcement of some new products from S-C SOFTWARE. 


Since there will be a lot of source code printed in this and 
forthcoming issues of the Apple Assembly Line, I plan to offer 
quarterly diskettes containing all published source code (in 
the format of the S-C ASSEMBLER II Version 4.0) at a nominal 
price. How does $15 per quarter sound? Of course, you can 
always type it in.... The articles should be considered copy- 
righted, but feel free to use the code in any way you can. It 
is printed here for your enlightenment, entertainment, and 
for your USE. I hope you find it all helpful. 


I do not know all there is to kmow about the 6502, or the Apple, 
or about anything! Nor do I have an infinite amount of time. 
Therefore, I will be happy to accept articles and programs from 
you. I may print them exactly as you write them, or I may 
modify them first. In any case, you will get credit, and the 
satisfaction of knowing you are helping many others in their 
conquest of the computer. 


If you know others who should be receiving this newsletter, 

spread the word! If you are not subscribing yet, then send 

your $12 today! If you have any comments about the content, 
format, or whatever, write now! Or, you can call me during 
reasonable hours at (214) 324-2050. 


Sincerely, 


bok SarHer- 


Bob Sander-Cederlof 


How to Add and subtract One 


I suppose there are as many ways to do it as there are pro- 
grammers. Some are short and fast, some long and slow, some 
neat, some not so neat. 


Adding one to a number is called "incrementing", and subtract- 
ing one is called "decrementing". The 6502 has two instructions 
for these two functions: INC and DEC. (For the moment I will 
overlook the four instructions for doing the same to the X and 
Y registers: INX, INY, DEX, and DEY.) It is easy to see how to 
use INC and DEC on single-byte values; with a little more 
trouble they can also be used for values of two or more bytes. 


dding one using ADC Adding one using INC 
CLC INC VALL Add 1 to low byte 
LDA VALL Add 1 to low BNE .1 Skip if no carry 
ADC #1 byte INC VALH Add carry 
STA VALL ol woes 
LDA 'VALH Add carry to 
ADC #0 high byte 
STA VALH 


Of course, there are many other variations. Not indicated 
here are the various address modes possible in addressing VALL 
and VALH. They may be in page zero, or elsewhere. They may 
be directly addressed, as shown above; or, you may use the 
indirect indexed, indexed indirect, and plain indexed modes. 


It is easy to see how to extend both methods above to triple 
precision, or more. Here is a three-byte version using INC: 


INC VALL Increment low byte 

BNE .1 Unless zero, no carry 

INC VALM Increment middle byte 

BNE .1 Unless zero, no further carry 
' INC VALH Increment high byte 


Believe it or not, there is one disadvantage to using INC code 
like this. Sometimes code is required to have a constant run- 
ning time, regardless of the data values. Then you either must 
use straight line code with ADC instructions, or add compli- 
cated padding code to the INC forn. 


How about subtracting one? Here are two ways to do it to two- 
byte values: 


Decrementing with SBC Decrementing with DEC 

SEC LDA VALL Need to borrow? 
LDA VALL Low byte - 1 BNE .1 No 

SBC #1 DEC VALH Yes, hi-byte - 1 
STA VALL -1 DEC VALL low byte - 1 
LDA VALH High byte - i 

SBC #0 

STA VALH 


Which one do you like better? It is still a matter of taste, 
unless the amount of memory used or time consumed is very 
important. There also different side effects, such as the 
final state of the Carry status. INC and DEC do not change 
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the Carry status, while of course ADC and SBC do. You may wish 
to preserve Carry through the process, making the INC/DEC code 
preferable. Or, you may wish to know the resulting Carry status 
after incrementing or decrementing for some reason; then you 
should use the ADC/SBC code. 


Back to subtracting one...how about doing it to a three-byte 
value? We just add three more lines: 
LDA VALL See if need to borrow 


BNE .2 No 
LDA VAIM See if need to borrow again 
BNE .1 No 


DEC VALH Borrow from high byte 
-1 DEC VALM Borrow from middle byte 
-2 DEC VALL Decrement low byte 


Easier than you thought, right? You would not believe the many 
strange ways I have seen this operation coded in commercial 
software (even some released by Apple themselves!). Yet it 
seems to me that this method is the same way we would do it 
with pencil and paper in decimal arithmetic. Think how you 
would do this: 123040 


XXXXXX | 
If you think of each digit being a byte...isn't the algorithm 
the same? 


Now it is time for all of us: to go back over the programs we 
wrote during the past three years for the Apple, and replace 
a lot of old code! 


New Products from 5-C SOFTWARE 


As many of you know, because you have already bought it, version 
4.0 of the S-C ASSEMBLER II is now on the market. With this new 
version, the price has gone up from $35 to $55. An upgrade kit 
for owners of previous versions is only $22.50. 


Now another new version is available, for those of you without 
disks! Tape Version 4.0 requires only 16K RAM and a cassette 
drive. The price is $45 for the complete package, or $22.50 
for an upgrade kit from the previous tape version. All of the 
new features of Disk Versions 3.2 and 4.0 are included, except 
those which require a disk drive. For the time being, the 
manual consists of a copy of the disk version 4.0 manuals, with 
a single sheet describing the differences in the tape version. 
Purchasers of tape version 4.0 will be able to upgrade to the 
disk version when they get a disk drive, for only $12.50. 


And still another version of the assembler! This one is a cross. 
assembler for the Motorola 6800, 6801, and 6802 mocroprocessors. 
It has all the features of the S-C ASSEMBLER II Disk Version 4.0, 
but the source language accepted is that of the 6800 family rather 
than the 6502. The price for this package is only $300, which is 
less than a month of time-sharing services for an equivalent 
capability would cost! An Apple, a ROM blower from Mountain 
Hardware, and the S-C ASSEMBLER II-6800 are all you need for 

a full blown development systen. 
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General Message Printing Subroutine 


Formatting a series of nice messages or screens-full of messages 
is hard enough to do in Applesoft...but in assembly language it 
can really be a difficult job. And it seems to take so much 
memory to do the equivalent of VTAB, HTAB, HOME, and PRINT. 

I was recently motivated to do something about this for a large 
verbose program. I designed a general subroutine for printing 
text, which can print all 128 character of ASCII, plus do some 
fancy footwork on the way. 


Embedded control codes in the text to be printed perform such 
handy functions as HTAB, VTAB, HOME, NORMAL, INVERSE, Clear to 
End of Line, Clear to End of Page, Two-Second Delay, and Repeat. 
All characters to be printed directly are entered with the high- 
order bit set to one; bytes with the high order bit zero are 
control codes. Comments in lines 1250-1350 of the listing show 
what the codes are. 


To simplify the calling sequence, a table of message addresses 

is built along with the messages themselves. To print a specific 
message, merely load the message index number into the A-register 
(LDA #0 for the first message, LDA #1 for the second, etc.)}, and 

JSR MESSAGE.PRINTER. Some sample messages are given in the list- 
ing, starting at line 2240. 


There are a lot of unused control codes, which you can use to 
augment the subroutine. I am planning to add a code to switch 

to a HI-RES TEXT driver, for writing text on either of the two 
Hi-Res screens. You can probably think of a lot of useful ones 
yourself. The point is that this type of subroutine can simplify 
programming of an interactive program, and save memory too. 


Using the Paymar Lower-Case Adapter Bob Matzinger 
with S-C ASSEMBLER II Version 4.0 817-275-2910 


Since purchasing the Paymar adapter, I have spent a lot of time 

adapting software to effectively use it! The program given here 
will adapt the version 4.0 of Bob Sander-Cederlof's assembler to 
allow lower-case comments. 


The two patches at lines 1340 and 1390 have to be entered, and 
the body of the patch loaded at $300. Once installed, typing a 
control-A will toggle the shift-lock; control-S will perform a 
single-character upper-case shift; control-K, -L, and -0O give 
access to the characters normally missing from the Apple keyboard. 
Only comments can be entered in lower-case. Further modification 


to the assembler would be required to allow commands, labels, 
and opcodes to be entered in lower- or mixed-case. 


erwit 


Vus4d~ 
OUL5- 
FC22- 
FC42- 
FCS8- 
FC9IC- 
FCAS8- 
FED- 
FES4- 
FE80- 


0018- 
001A- 


08u00- 
VBO1- 
0802- 
0805- 
0807- 
080A- 
080C- 
OBOE- 
0810- 
0813- 
0315- 
08146- 
0418 - 
Volk 


volE- 
GB20~ 
0gZ2- 


OA 


A8 


B9 
83 
B9 
85 
A? 
85 
20 
DO 
60 
10 
20 
4c 


cy 


kO 
C? 


08 
08 


08 


FR iS 


08 


1100 MON. INVERSE .EQ $FE80. 

4110 4&~--------------------------------- 

1120 MSG.FNTR EQ $18919 

1130 HSG.SCANNER «EQ $1A 

1140 *--------------------------------- 

1150 * HESSAGE PRINTER 

1160 * 

1170 * CALL: | 

1180 & (&) = MESSAGE # (0-N) 

1190 x JSR MESSAGE.PRINTER 

1200 * 

1210 * ACTION? 

1220 & i. FINDS SPECIFIED MESSAGE 

1230 * 2, PRINTS ON THE SCREEN 

1240 * 3.  INTERPRETS CHARACTERS AS FOLLUWS: 
1250 * $00 END OF MESSAGE 

1260 x $01-28 HTAB 1-40 © 

1270 x $40-57 VTAB 1-24 

1230 * $60 CLEAR SCREEN» HOME CURSOR 
1290 * $61XXYY REFEAT CHARACTER YY» 
1300 x $62 DELAY ABOUT TWO SECONDS. 
1310 x $63 NORMAL MODE 

1320 * $64 INVERSE MODE | 

1330 % $45. CLEAR TO END OF LINE 
1340 * $66 CLEAR TO END OF SCREEN 
1350 x $80-FF FRINT AS IS 

1360 * 

1370 &*~------~-------------------------- 

1380 MESSAGE. PRINTER 

1390 ASL DOUBLE MSG NUMBER TO GET INDEX 
1400 TAY - 

1410 LUA MESSAGE.ADDRESS. TABLE » ¥ 

1420 STA MSG.FNTR 

1430 LDA MESSAGE .ADDRESS. TABLE+1 » Y 

1440 STA MSG.PNTRtL 

1450 LDA #0 

1460 STA MSG.SCANNER ; | 

1470 .1 JSR GET. NEXT. CHAR. FROM. MESSAGE 
1480 BNE 3 | 

1490 RTS $003 EON 

1500 .3 BFL 4S SPECIAL ACTION 

1510 JSR MON.COUT PRINT THE CHARACTER 
1520 44 JME 1 

1530 x nee see nine Agen enemies one cone cere comm oan owe cpa Sem SnD enn nbs mts ces cape us ame anes afm cums aie core unas om wou ED ame ames 

1540 .5 LAF #$40 CHECK FOR VTAB 

1550 BCS 66 YES 

1540 CHF 4#$29 IN RANGE FOR HTAB? 


MON. VTAB 
MON.CLREOP 
MON. HOME 
MON. CLREOL 
MON .WAIT 
MON .COUT 
MON «NORMAL 


Message Printer 
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XX Times 


0824 ~- 
0826- 
0828- 
082A- 


0820~ 
Ou 2E- 
0830- 
0832~ 
0034- 
0837 - 


083A- 
083C- 
O83E~- 
0840- 
0841- 
0842~ 
0944- 
084 S- 
0847- 
0848- 
054B- 
084C~ 
O84F- 
0850- 


0851- 
0853- 
0855 - 
0857- 
C359- 
Od5B- 
085D- 


08SF - 
0352- 


G863- 


G866- 
OGS9- 
QsédA- 
08eC- 


08éD- 
O85F - 
0872- 
0373- 
0875- 


0876-~ 
0878- 
0387A- 
087C— 
087E- 
0880- 
0882~- 


FC 
0&8 


08 
08 


FC 


BCD 44 NO» IGNORE 
STA NON.CH 
DEC MON.CH 
BCC .4 +e s ALWAYS 
Kom ne a en ee 
6 CHF #$58 IN RANGE FOR VTAB? 
BCS .7 NO 
AND #$1F MASK VALUE 
STA MON.CV YES : 
JSR MON.VTAB 
JMP 44 
{-------------+-----+--------- +--+ 
+7 EQR #$60 CHECK FOR TOKENS 
CHF #7 $60 THROUGH $66 
BCS .4 NOT TOKEN, SO IGNORE 
ASL MAKE DUBLE INDEX 
TAX 
LUA /.4-1 PUT RETURN ON STACK 
PHA TO SIMULATE A JSR ADDR+Xx 
LDA #.4-1 
PHA 
LUA MSGTKNTBL+1»X 
PHA 
LUA MSGTKNTBL » X 
FHA 
KTS 
x com cae cam srs cate came ome ate aame seme m0 cont <n GamD am GOED Gums GED SEED SOUS CUED GOED GULP GED GUID GENS GUND GED GED cum oom auto mae 
MSGTKNTBL 
»DA MON.HOME-1 
.DA MSG.REPEAT-1 
.DA LONG.DELAY-1 
.DA MON.NORMAL-1 
.DA MON. INVERSE-1 
.DA MON.CLREOL-1 
.DA MON. CLREOP-1 
x sre a> came eaten eee came once | eam Sat SE SRD GED OSD GED SED GOED GENS GOED GEND GED END CRSD SED COND GED GOED GORD GED GED GED cmmD cam aim 
MSG. REPEAT 
JSR GET.»NEXT.CHAR.FROM.MESSAGE 
TAX NUMBER OF MULTIPLES 
JSK GET.NEXT. CHAR. FROM. MESSAGE 
vi JSR MON. COUT 
DEX 
BNE «1 
RTS 
, te cn SAO SD Sane SOD OD SY Gam GERD SEND AED Se CONS EEE OD ED OES SD GD SUD GED GUD CD CD 
LONG. DELAY 
LDY #12 
1 JSR MON.WAIT DELAY 167309 CYCLES 
DEY 
BNE .1 
RTS 
x ms coe cane cum cee mere comm wane mam cove <odb case OND oOUD =the <i OULD GOED GSED GUD GRD GED GUIS GAMD GOLD GES GED GED aus ane cum ean ame 
GET. NEXT. CHAR. FROM. MESSAGE 
LLY MSG.SCANNER 
LUA (MSG.PNTR )s¥ 
INC MSG.SCANNER 
BNE «1 
INC MSG.PNTRt1 
ot CMP 40 
RTS 


Message Printer 
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0bss~ 
Ud35- 
0387 - 
0889 — 


vE8B— 


08sC- 
O88D- 
08970—- 
0895- 
0896—- 
O899— 
oB7C— 
O89F — 
08A2— 
OvAS— 
O8A6— 
08A7 - 


OBAY~ . 


O8AC— 
OBAF - 
08B2- 
O8ES- 
CYURB— 
UsBB-- 
O8KE- 
v6C1- 
08C 4- 
08C7- 
osc 9~ 
08C B- 
OSCE -- 
ogni —- 
Oul4 — 
Osh? —- 
oOsnhg— 
vslLC— 
O8DF — 
V3E2— 
OBES— 
0O8E7 —- 
O8E9-- 
OB8EC- 
OsEF- 
O@F 2- 
O8FS- 
O8F 8- 
OSF B- 
OSF D- 
OSFE- 


OSFF - 
07 O2- 
0705- 
0708- 
07 0B- 
OP0E- 


AD 
AD 
AD 
AD 
AD 
AD 
AD 
29 


Message Printer 


2180 MESSAGE . ADDRESS. TABLE 


2190 


5240 MSGO 


2250 * CELL 


2260 
2270 
2280 
2290 
23500 
2310 
2320 
2330 


2340 
23550 
2360 


2430 
2440 
2450 
24640 
2470 


2480 


«BA NSGO 
«BDA MSG1 
»DA MSG2 
«DA MSGS 


oHS 6&0 


HOME SCKEEN 


1 -- VOCABULARY CHECK 


«HS 54 

eHS 6129AD 
«HS 28ADAD 
«HS 28ADAD 
»HS 28ADAD 
eHS 28ADAB 
+HS 28ADAD 
«HS 28ADAD- 


eHS 286129AD 
oHS 63 
eHS 4205 


INVERSE MODE 
4A DASHES 
2 DASHES 


2 DASHES 
2 DASHES 
2 DASHES 
2 BASHES 


41 DASHES 
NORMAL MODE 
VTAB 3» HTAB S 


«AS -/DEMONSTRKATION OF MESSAGE PRINTER/ 


AS 


«HS 440F VTAB S» HTAB 15 

«AS -/S-C SOF TWARKE/ 

eHS 450E VTAB 6* HTAB 14 

eAS -/F. 0. BOX lw YA 

«HS 4665 VTAB 7» HTAB 11 

«AS -/RICHARDSONs TX 75080/ 

«HS 44 VTAB 11 

oHS 00 

«HS 490166 VTAB 10» HTAB 1» CLR EOP 


-/SELECT ONE? / 


-7?- 


Message Printer 
@70F- 60 


«HS 370165 
eHS 54 


2010 N52 
220 


@910- 57 O01 65 
LI 44 

0914~ AO BC D3 
@917- DO Ci C3 
O91A~ CS. BE AO 
O91D~ Cé CF D2 
0920- AO CD C5 
0923~ CE DS AC 
0926- AO BC D2 
0929~ CS D4 DS 
092C~ D2 CE BE 
092F-- AO Cé CF 
0932— D2 AO CD 
0935- CF D2 C5 
0938~ AO 2530 
WS 63 


VTAB 24% HTAB 1» CLR EOL 
INVERSE MODE 


~/ <SPACE> FOR MENUs <RETURN? FOR MORE 
4300 NORMAL MODE>s EON 

O93b-- 87 87 SBD 2 87878D 
C73E~ AA AR AA 

C741-- D3 D9 CE 

O744- D4 Ci D8 

0947—- AO 
O74A- D2 CF 
O74D—- BL 00 


~/&&KSYNTAX ERROR/ 
8D00 


HS 


SYMBOL TABLE 


0876~ 


GET. NEXT. CHAK. FROM. MESSAGE 


+01=0880 


oséii- 


LONG. DELAY 


-01=O086F 


08%5- 
0800- 


eV1=0810» 
006=082C» 


0024- 
FC9c— 
FC42- 
FUE DTI— 
0025 ~~ 
FCS8- 
FESO— 
FE84-- 
FC22- 
FCA8-— 
0018- 
O8SF - 


MESSAGE .ADDRESS. TABLE 
MESSAGE .FRINTER 
©03=0816» .04=O081B» 
MON.CH 

MON.CLREOL 

MON. CLRKEOP 

MON.COUT 

MON.CY 

MON.HOME 

MON. INVERSE 

MON. NORMAL 

MON. VTAB 

MON WAIT 

MSG.FNTR 

MSG.REPEAT 


»91=0866 


001A- 
088h- 
OUF F ~ 
0910- 
09 3K- 
O¥S1~- 


MSG. SCANNER 
MSGO 

MSG1 

NSG2 

NSG3 
MSGTKNTBL 


-OS=O0B1E 


tibsi— 
Bosb— 
BusC— 


BASF — 


O693—- 
FDeCc- 


13586- 


139A-— 


WsGu— 
ESG3— 


B305- F 


Hur 
wso3— 
HSEB— 
260 — 
HS1G6-— 
ES312—- 
ES31S- 
B31Pr— 


FF 


FD 


Lower-case Adapter 


+ Lower case comversicon Tor: 

* ASMDISK 4.6 “«<c> S-C SOFTWARE > 

*¢ Commelete with 126 ASCII Characters 

SR ee ee re cr ce ee ee cee ee re ee eee ee on EE OD Oo aD Om a oem Ome ae eee ce ee ene eee econ oe 

+ The CTRL-A and CTRL-S keyss are used similar to 
* shift and lock keys on a standard tyrew- iter. 
+ CTRL-S will enter one UPPER CASE character the 
* return to lower case mode. 

*« CTREL-A is a “Permanent” shift lock. Each time 
* CTRL-A is pressed the case mode will change to 
4+ either urrer or lower case until it or CTRL-S 
* is Pressed. CTRL-S will sive you one more 

+ urprPer case letter. 

i en ae ee et ee 

* REMEMBER!!! 

* ALL COMMANDS AND MNEMONIC ENTRIES MUST BE 


+’ IN UPPER CASE. Use lower case only for. 


1 ern ee ne EH" COMMENTS!!! 


CTRLA .EG! Sol SHIFT LOCK 
CTRLK .EQ $38 Cor ¢ 

CTRLL .EQ $8C ‘~ CI 4 

CTRLG .EGi Sor - of RUB 

CTRLS .EGQ $93 SHIFT 

RDKEY .EQ SFDGC 

a ce ce es ee ce cc ee ee a ce ce ee ce ce ee ee a ee eS ee aD ee ee 


* Remember: 

* Shift M yields J or ¢ 
* Shift WM vsields fT or ~* 
* Shift P sields 8 or * 


Fn 
3p eer cetera cece emcees ne mien en cence ee maine at the en cet a cee mes amram 
.OR $1386 
.TA $@30a 
Fe 
PATCH1 JSR LC 


of eee ee ee ee ew oe 2D GED cae CD ONES OUR ED cee Oey Bee eee GD San eee ee -0d ee eet es ee 


-OR %1539A 

TA $6506 
Kou ce ee care eee came ms ee nee Sn Se a> de Me ce ru sein es see eneors e 
PATCH2 AND #3SFF 
pi me a aa ee cee ere ee we em a ee me we ee oe ae a ee ee 


-OR 20206 
* CAUTIOHS Do mot assenble sour Frosdrans inte 
* $0306 ur. ‘You will destroys this routine!!! 
A mm cr cc a cs a a a en a ea a 
LC JSPR RDEE'’ 

Chr #CTRLA 

BEG LOCK 

CMP #CTRLS 

BHE CHECK 
SHIFT LOA #F0u 

STA LCKFLG 
SHIFT1 LOA #$oG4 

STA CASE 

BEG! LC 


i 
8 LOCK LOW LC-FLG 


HS1LA- ; 
oO 4A G3 


G31C— 
OS1F— 
G321— 


G323- 


G3 26— 
GS23- 
ws2A— 
G32C— 
G32E—- 
B33e- 
G332- 
B334—- 
G336- 
H338— 
BS3A— 
33D 
GSSE- 
@sdi- 
GS43- 
B345- 
GI43- 
G349— 
wssA— 
IS346— 


1S 
1S-u 
IS SE 
1S Se 
Lee 
lel 
1626 
16a8 
lete 
1eSe 
lece 
16,°€ 
16396 
1698 
17°66 
17°18 
1FP26 
LYSE 


If4o 


rue 
roe 
1°°’a 
1°SB 
roe 
1s66 
1516 
isc 
S38 


134308 


CHECK 


SPEC 
COM 


RETURH | 


Feo Hell 
LR LG 
. SHIFT 
Y #226 


#ECG° 
RETURI 
CASE 


A LCKFLG 


OUT 
#226 
CASE 


Lower-case Adapter 


* Written bs Bob Matzinser 


* Sertember 6. 


Hardware Error in ALL 6502 Chips! 


INTERFACE, the newsletter of Rockwell International (P. 0. Box 
3669, RC 55, Anaheim, CA 92803), Issue No. 2, is the source for 
It should be noted by all Apple 
owners working in assembly language, because it could cause 
an almost unfindable bug! 


There is an error in the JUMP INDIRECT instruction of ALL 6500 


the following information. 


family CPU chips, no matter where they were made. 


the error is present in ALL APPLES. 
only when the low byte of the indirect pointer location happens 


to be $FF, as in JMP ($08FF). 


program counter never gets incremented! 
byte gets loaded from é 

your 
JMP ($xxFF). 


1986 


This means 


This fatal error occurs 


Normally, the processor should 
fetch the low-order address byte from location $08FF, increment 
the program counter to $0900, and then fetch the high-order 
address byte from $0900. 


Instead, the high-order byte of the 
The high-order address 
0800 instead of $0900! 


For this reason, 


rogram should NEVER include an instruction of the type 


Try this example to satisfy yourself that you understand the 


problem: 


#800:09 
*810;:6C FF 08 
*8FF:;50 OA 


#A50:00 
#950:00 


(this is JMP ($08FF).) 


(pointer) 
(BRK instruction we SHOULD reach) 
(BRK instruction we DO reach! ) 


- 10 - 


insert the following data from the monitor. 


Execute the instruction at $0810 by typing 810G. If the JMP 
indirect worked correctly, it would branch to location $0A50 

and execute the BRK instruction there. However, since the 

JMP indirect instruction has this serious flaw, it will actually 
branch to the BRK instruction at $0950! 


Since it is very difficult to predict the final address of all 
pointers in a large assembly language program, unless they are 
all grouped in a block at the beginning of the program, I sug- 
gest that you take special measures to protect yourself against 
this hardware problem. (One measure, of course, was suggested 

in that sentence.) My favorite method is to avoid using the 
JMP indirect instruction. It takes too long to set it up in 
most cases anyway. I prefer to push the branch address (less 
one) onto the stack, and RTS to effect the branch. This allows 
me to create the effect of an indexed JMP. For example, suppose 
a command character is being decoded. I process it into a value 
in the A-register between 0 and N-1 (for N commands), and do 

the following: 


ASL Double to create index 

TAX . | for address table 

LDA JUMP.TABLE+1,X High order byte of branch address 
PHA 


LDA JUMP. TABLE, X Low order byte 
PHA 
RTS 


The jump table looks like this: 


JUMP. TABLE 
~-DA COMMANDA-1 The "-i" is 
-DA COMMANDB-1 on each line 
»-DA COMMANDC-1 because the RTS 
~-DA COMMANDD-1 adds one before 
et cetera branching. 


This trick was described by Steve Wozniak in an article in 
BYTE magazine back in 1977 or 1978. It is also used by him 
in the Apple monitor code, and in SWEET-16. In both of these 
cases, he has arranged all the command processors to be in the 
same page, so that the high order byte of the address can 

be loaded into the A-register with a load-A-immediate, and the 
jump table can be only one-byte-per-command. See your Apple 
ROMs at locations $FFBE-$FFCB (jump table at $FFE3-$FFF9) and 
arose at $F69E, F6A0, F684-F6B8 (jump table at $F6E3- 

F’ 0 ° 


You can extend this idea of an indexed JMP instruction into 
a simulated indexed JSR instruction. All you have to do is 
first push onto the stack the return address (less one), and 
then the branch address (less one). I use this trick in the 
Message.Printer program described else where in this issue. 
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